home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8905.d64 / logelei freunde (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  479b  |  21 lines
  1. 100 REM LOGELEI: FREUNDE      64'ER '89
  2. 110 FOR A=-1 TO 0
  3. 120 FOR B=-1 TO 0
  4. 130 FOR C=-1 TO 0
  5. 140 FOR D=-1 TO 0
  6. 150 FOR E=-1 TO 0
  7. 160 FOR F=-1 TO 0
  8. 200 W=(AANDEANDF)
  9. 210 W=W AND (NOT(EANDD))
  10. 220 W=W AND (B=>(NOTF))
  11. 230 W=W AND ((AANDC)<>(NOTAANDNOTC))
  12. 240 W=W AND ((NOTC)=>B)
  13. 250 IF W THEN A1=A:B1=B:C1=C:D1=D:E1=E:F1=F::A=1:B=1:C=1:E=1:F=1
  14. 300 NEXT F,E,D,C,B,A
  15. 500 IF A1 THEN PRINT"AXEL KOMMT."
  16. 510 IF B1 THEN PRINT"BERND KOMMT."
  17. 520 IF C1 THEN PRINT"CHRISTIAN KOMMT."
  18. 530 IF D1 THEN PRINT"DIETRICH KOMMT."
  19. 540 IF E1 THEN PRINT"ERICH KOMMT."
  20. 550 IF F1 THEN PRINT"FRITZ KOMMT."
  21.